home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / ADDONS.ZIP / BAZ_CRK.TXT < prev    next >
Text File  |  1997-01-12  |  3KB  |  82 lines
  1. This script will be part of bazBot v2.╪ made by Ronny 1996 ⌐
  2. the carrent script was made by baz`oo`ka.
  3.  
  4. All you have to do is to past the folowin in to the mentioned place
  5.  
  6. **** mIRC v4.7 Only!! ****
  7.  
  8. Perform:
  9.  
  10. remove $mircdir $+ rep.ini
  11.  
  12. Events:
  13.  
  14. #crk disabled
  15. 1:on text:*:#: { 
  16.   if ($nick isop $chan) { echo 3 -s not checking ops | halt }
  17.   if ($len($parms) < %maxletters) { %cr = echo 3 -s not checking ops. }
  18.   elseif ($len($parms) > %maxletters) { %cr = CK1 }
  19.   %repter = $readini $mircdir $+ rep.ini %chnm $address($nick,3)
  20.   %pars = $remove($remove($parms,[),]) 
  21.   %chnm = $remove($remove($chan,[),]) 
  22.   RepK 
  23. }
  24. 1:on action:*:#: { 
  25.   if ($nick isop $chan) { echo 3 -s not checking ops. | halt }
  26.   if ($len($parms) < %maxletters) { %cr = echo 3 -s not checking ops. }
  27.   elseif ($len($parms) > %maxletters) { %cr = CK1 }
  28.   %repter = $readini $mircdir $+ rep.ini %chnm $address($nick,3)
  29.   %pars = $remove($remove($parms,[),]) 
  30.   %chnm = $remove($remove($chan,[),]) 
  31.   RepK 
  32. #crk end
  33.  
  34.  
  35. Variables:
  36.  
  37. %maxletters 9
  38. %maxpercent 80
  39.  
  40. Aliases:
  41.  
  42. colr if (*2 != $null) { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
  43.  
  44. Repk {
  45.   if (%pars == %repter) { ban -u10 $chan $nick 3 |  kick $chan $nick º╗í½º []baz▀ot[] Dont Repeat! We Heard you the first time ! $colr(12,(10 seconds ban)) []baz▀ot[] º╗í½º }
  46.   else { writeini $mircdir $+ rep.ini %chnm $address($nick,3) %pars | %cr }
  47. }
  48.  
  49. Ck1 {
  50.   %caps = 0 | %capspa = 0 
  51.   %capsrm = $remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($remove($parms,!),@),%),$),^),&),$chr(35)),$chr(63)),$chr(41)),$chr(40)),$chr(32)),=),-,),_),+)
  52.   :start
  53.   inc %capspa
  54.   if (%capspa == $len(%capsrm)) { goto end }
  55.   elseif ($asc($mid(%capspa,1,%capsrm)) isnum 65-90) { inc %caps 1 | goto start }
  56.   else { goto start }
  57.   :end
  58.   %capsnum = $len(%capsrm)  
  59.   %capsaltot = %caps * 100 | %capstot = [ %capsaltot / %capsnum ]
  60.   if (($len(%capsrm) > %maxletters) && (%capstot >= %maxpercent)) { 
  61.     if ($me isop $chan) {
  62.       %capsin = [ %capstot - %maxpercent ]
  63.       %capskl = ( $+ %capstot $+ % Caps used, Which iS %capsin $+ % More Then You are Alowed.)
  64.     kick $chan $nick º╗í½º []baz▀ot[] Caps aRe Wayyy Lame. . . $colr(12,%capskl) []baz▀ot[] º╗í½º }
  65.     else { notice $nick Stop Shouting !!! Caps are SO lame ! ( $+ %capstot $+ % Caps used.) } 
  66.   }
  67.   unset %caps*
  68. }
  69. Main popups:
  70.  
  71. Caps/Repeat Detection : 
  72. .Toggle Kick : {
  73.   if (%detectcaps = Off) { .enable #crk | %detectcaps = On | echo 4 $active *** Caps Detection and Repeat Kick are ACTIVATED! | halt  } 
  74.   else { %detectcaps = Off | .disable #crk | echo 4 $active *** Caps Detection and Repeat Kick are DE-ACTIVATED! | halt } 
  75. }
  76. .-
  77. .Set Max Letters required : /set %maxletters $?="Max Letters allowed??"
  78. .Set Max Percent of Caps to Kick : /set %maxpercent $?="Max Percent caps??"
  79. .-
  80. .Settings : echo 4 $active *** Max Letters: %Maxletters  | echo 4 $active *** Max Percent: %maxpercent $+ %
  81. .Credit : echo 4 $active *** This script was Written by baz`oo`ka, Made user-friendly by [Tohma]
  82.